(define (my-foreach p l)
  (cond ((null? l) '()) 
        (else (p (car l)) (my-foreach p (cdr l)))))
